home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / mtsconv.bas < prev    next >
BASIC Source File  |  1994-06-01  |  644b  |  21 lines
  1. 10 'SAVE "MTSCONV.BAS",A
  2. 20 '成分表MS.DAT-->成分表TW.DAT
  3. 30 '          V1.0                  91.04.10
  4. 40 CONSOLE 0,24,1:CLS:COLOR 7:DIM FD$(22)
  5. 50 OPEN "成分表MS.DAT" FOR INPUT AS #1
  6. 55 OPEN "(128)成分表TW.DAT" AS #2
  7. 60 FIELD #2,4 AS FD$(1),16 AS FD$(2),32 AS FD$(3)
  8. 70 FOR I=4 TO 22:FIELD #2,52+4*(I-4) AS DAMMY$,4 AS FD$(I):NEXT I
  9. 80 WHILE NOT EOF(1)
  10. 90 LINE INPUT #1,W$:PRINT W$
  11. 100 LSET FD$(1)=MKS$(VAL(MID$(W$,1,4)))
  12. 110 LSET FD$(2)=MID$(W$,5+4,16)
  13. 120 LSET FD$(3)=MID$(W$,21+4,32)
  14. 125 LINE INPUT #1,W$:PRINT W$
  15. 130 FOR J=4 TO 22
  16. 140 LSET FD$(J)=MKS$(VAL(MID$(W$,1+8*(J-4),8)))
  17. 150 NEXT J
  18. 160 PUT #2
  19. 180 WEND
  20. 190 CLOSE
  21.